-- background: 6050 from stack: in.0
-- bmap block id: 4012
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on idle

end idle






-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=101 right=120 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
put field name1 into field spine1



-- part 5 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=121 right=254 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RC1


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=101 right=119 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 9 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=228 top=120 right=253 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: RC2


-- part 38 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=60 top=260 right=277 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC1" to left
  set textFont of field "RC1" to Geneva
  set textSize of field "RC1" to 9
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=85 top=260 right=277 bottom=101
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC2" to left
  set textFont of field "RC2" to Geneva
  set textSize of field "RC2" to 9
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=153 top=260 right=277 bottom=170
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC1" to left
  set textFont of field "RC1" to Geneva
  set textSize of field "RC1" to 12
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=178 top=260 right=277 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC2" to left
  set textFont of field "RC2" to Geneva
  set textSize of field "RC2" to 12
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=265 top=260 right=277 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC1" to center
  set textFont of field "RC1" to Geneva
  set textSize of field "RC1" to 9
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=292 top=260 right=277 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC2" to center
  set textFont of field "RC2" to Geneva
  set textSize of field "RC2" to 9
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=370 top=260 right=277 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC1" to center
  set textFont of field "RC1" to Geneva
  set textSize of field "RC1" to 12
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=398 top=260 right=277 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  beep
  set textAlign of field "RC2" to center
  set textFont of field "RC2" to Geneva
  set textSize of field "RC2" to 12
end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=14 top=279 right=300 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=448 top=239 right=283 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  if the freeSize of this stack > 0 then domenu "compact stack"
  push card
  visual effect dissolve
  go to card id 5848
  set the cursor to 1
  tabkey
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=464 top=300 right=324 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  push card
  Visual effect dissolve to white
  go to card id 4298
end mouseUp



-- part 54 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=301 right=340 bottom=53
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Erase Card
----- HyperTalk script -----
on mouseUp
  beep
  put the userLevel into saveLevel
  set the userLevel to 3
  if the userLevel < 3 then exit mouseUp
  if the freeSize of this stack > 0 then domenu "compact stack"
  choose select tool
  drag from 2,68 to 171,101
  domenu clear picture
  choose select tool
  drag from 173,68 to 341,101
  domenu clear picture
  choose select tool
  drag from 343,68 to 512,101
  domenu clear picture
  put "" into field 1
  put "" into field 2
  put "" into field 3
  put "" into field 4
  set the cursor to 1
  tabkey
  set the userLevel to saveLevel

end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=460 top=22 right=62 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  beep
  put the userLevel into saveLevel
  set the userLevel to 3
  if the userLevel < 3 then exit mouseUp
  if the freeSize of this stack > 0 then domenu "compact stack"
  put field id 13 into temp1
  put field id 14 into temp2
  choose select tool
  drag from 7,57 to 203,101
  domenu clear picture
  choose text tool
  click at 105,85
  set textfont to geneva
  set textsize to 12
  set textalign to center
  type temp1
  choose select tool
  drag from 7,57 to 203,101
  domenu flip vertical
  domenu flip horizontal
  choose text tool
  click at 105,100
  set textfont to geneva
  set textsize to 9
  set textstyle to plain
  set textalign to center
  type temp1
  choose select tool
  drag from 228,57 to 422,101
  domenu clear picture
  choose text tool
  click at 325,85
  set textfont to geneva
  set textsize to 12
  set textalign to center
  type temp2
  choose select tool
  drag from 228,57 to 422,101
  domenu flip vertical
  domenu flip horizontal
  choose text tool
  click at 325,100
  set textfont to geneva
  set textsize to 9
  set textstyle to plain
  set textalign to center
  type temp2
  choose browse tool
  wait for 2 seconds
  domenu print card
  answer " Do You Another Copy?" with "Yes" or "No" or "Cancel"
  if it is "Yes" then domenu print card
  set the userLevel to saveLevel
end mouseUp